home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / flweh15.dir / 00160_Script_160 < prev    next >
Text File  |  1994-11-15  |  2KB  |  77 lines
  1. on startMovie
  2.   cursor 4
  3.   global FrankNav
  4.   global nowFrame, currIntro, currMM
  5.   set currMM = "FLWWT"
  6.   
  7.   preLoadCast A11, A17
  8.   
  9.   puppetSprite 21, TRUE
  10.   puppetSprite 22, TRUE
  11.   puppetSprite 23, TRUE
  12.   puppetSprite 11, TRUE
  13.   set the immediate of sprite 23 to TRUE
  14.   set the stretch of sprite 23 to FALSE
  15. end startMovie
  16.  
  17. on saveLocals
  18.   global lastMovie, lastFrame, nowFrame
  19.   set lastFrame = nowFrame
  20.   set lastMovie = "FLWEH15"
  21. end saveLocals
  22.  
  23. on buttonState
  24.   global FrankNav, bFlag
  25.   
  26.   if rollover(11) then
  27.     set the castNum of sprite 11 to 1086
  28.     if the mouseDown then
  29.       set the castNum of sprite 11 to 1087
  30.     end if
  31.   else 
  32.     set the castNum of sprite 11 to 1085
  33.   end if
  34.   
  35.   if rollover(5) then
  36.     rollCheck
  37.   else 
  38.     set pos = 0
  39.     cursor -1
  40.   end if
  41.   
  42.   if (the mouseV > 200) or (bFlag = TRUE) then
  43.     doState
  44.   end if
  45. end buttonState
  46.  
  47.  
  48. on rollCheck
  49.   global right, left, forw, down, pos
  50.   if the mouseH>=445 and the mouseH<=536 and the mouseV>65 and the mouseV<305 then
  51.     if right = 1 then
  52.       set pos = 3
  53.       cursor [1065,1066]
  54.     else 
  55.       set pos = 0
  56.       cursor [1071,1072]
  57.     end if
  58.   else if the mouseH>=216 and the mouseH<=307 and the mouseV>65 and the mouseV<305 then
  59.     if left = 1 then
  60.       set pos = 1
  61.       cursor [1069,1070]
  62.     else
  63.       set pos = 0
  64.       cursor [1071,1072]
  65.     end if
  66.   else if the mouseH>=306 and the mouseH<=446 and the mouseV>65 and the mouseV<305 then
  67.     if forw = 1 then
  68.       set pos = 2
  69.       cursor [1067,1068]
  70.     else
  71.       set pos = 0
  72.       cursor [1071,1072]
  73.     end if
  74.   end if
  75. end rollCheck
  76.  
  77.